|
100
|
Is is possible to toggle the selection of dates, such the first click selects the date, the second click unselects it, and so on
with Schedule1 do
begin
OnResizeControl := Integer(EXSCHEDULELib_TLB.exCalendarFit) Or Integer(EXSCHEDULELib_TLB.exHideSplitter) Or Integer(EXSCHEDULELib_TLB.exResizePanelRight);
with Calendar do
begin
AllowToggleSelectKey := EXSCHEDULELib_TLB.exLeftClick;
AllowSelectDate := EXSCHEDULELib_TLB.exLeftClick;
SingleSel := False;
end;
end
|
|
99
|
How can I change the background color for selected dates in the calendar panel, so always is the same no matter if the control loses the focus
with Schedule1 do
begin
Background[EXSCHEDULELib_TLB.exCalendarSelBackColorUnFocus] := Background[EXSCHEDULELib_TLB.exCalendarSelBackColor];
Background[EXSCHEDULELib_TLB.exCalendarSelForeColorUnFocus] := Background[EXSCHEDULELib_TLB.exCalendarSelForeColor];
end
|
|
98
|
Is it possible to specify a different background color for the calendar panel
with Schedule1 do
begin
Background[EXSCHEDULELib_TLB.exCalendarBackColor] := $f0f0f0;
end
|
|
97
|
How do I change the control's border, using your EBN files
with Schedule1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Appearance := EXSCHEDULELib_TLB.AppearanceEnum($1000000);
end
|
|
96
|
Is it possible to prevent showing the calendar at all
with Schedule1 do
begin
OnResizeControl := Integer(EXSCHEDULELib_TLB.exChangePanels) Or Integer(EXSCHEDULELib_TLB.exHideSplitter);
ScrollBars := EXSCHEDULELib_TLB.exNoScroll;
end
|
|
95
|
How can I change the visual aspect only for a specified event
with Schedule1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Calendar.Selection := '6/20/2012';
with Events do
begin
Add('6/20/2012 9:00:00 AM','6/20/2012 11:00:00 AM');
Add('6/20/2012 10:30:00 AM','6/20/2012 1:00:00 PM').BodyBackColor := $1000000;
Add('6/20/2012 1:00:00 PM','6/20/2012 3:00:00 PM');
end;
DefaultEventPadding[EXSCHEDULELib_TLB.exPaddingAll] := 2;
end
|
|
94
|
How can I change the visual aspect of the events
with Schedule1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Background[EXSCHEDULELib_TLB.exScheduleCreateEventBackColor] := $1000000;
Background[EXSCHEDULELib_TLB.exScheduleUpdateEventsBackColor] := $1000000;
BodyEventBackColor := $1000000;
end
|
|
93
|
Is there any event to let me know once an edit has been edited
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
procedure TForm1.Schedule1LayoutEndChanging(ASender: TObject; Operation : LayoutChangingEnum);
begin
with Schedule1 do
begin
OutputDebugString( 'End exScheduleEditEvent(15)' );
OutputDebugString( Operation );
end
end;
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
procedure TForm1.Schedule1LayoutStartChanging(ASender: TObject; Operation : LayoutChangingEnum);
begin
with Schedule1 do
begin
OutputDebugString( 'Start exScheduleEditEvent(15)' );
OutputDebugString( Operation );
end
end;
with Schedule1 do
begin
AllowEditEvent := EXSCHEDULELib_TLB.exLeftClick;
AllowSelectEvent := EXSCHEDULELib_TLB.exDisallow;
DefaultEventLongLabel := '';
DefaultEventShortLabel := DefaultEventLongLabel;
VisualDesign := 'gBFLBWIgBAEHhEJAEGg7IAUHXI6g0MAAmhULikUCIgg6sh4AgRCJ0Ui8HjKTj6AADACAxRDAMgBQKAAzQFAYZhpBaERiHEZoJhUAIIRZGMQxXAcMQvDSKQRhEAoJDgN4' +
'kQKNYyQYAAYhuGaPBhASQJUhkMocR7HMygBJkUABEyYaFHdIFCQ1DykJzkCbqAgkMYeDRHQxTdQsEgpDQMIRpGA5eb+XgAV4/cTSYKQahLMizJYGUYLHgma5tTTWcTVP' +
'LVFRrJiTYRlKTJOjCCQ0ATdUyzPAeCRzQ6QJ5kUZ6CgSUpGRjkhY6agkF6VVxCNg2BT8KzxRoAKhiGpKHpaCaUQLWMB5PaoAR8fLYAA2B6bDhGaa2XAAFr2VZkWSUBBp' +
'nSWo8kYIg1D6NBuGyIhYnCXx5kuHZcjUAAOAcDxbF2L5mmKPIOl2Ox7l2XJVGAfRMh8CABiyYpgi8E5pFSRp4DQHBkiKOQug4ChpmqPRoiAco6HePxJDUXQAASCYpHAW' +
'pUHmGxmlwdphlwQJWncMQzFwXknCodJcEcXRiHYUIYCwAByhyaB1lAeReDgTgAHwU44GoHB3lUJgFi2BgYCYGYGgkFx2C2ax+lARI9FKA5YHiMR2guHBHlUPIChuBRJk' +
'4XIjiUKg8GsY5ohkZoQh2dJ6AYZxfFkHZoF2E5gkQOBPgMIJJHwS5WJmMRvhINwRHKAAdCieZyHEHgxEAaQYkcQZUHIGRUnQJIuAGEAxAgTYclGFBRAMCgQhgTZnEIIQ' +
'0AweIdCYZYGgaIZbDaTJbiKaJKDaDojmkChGhKI5bDoHoWD+aIqDiPImmmSh2h6J5qAqBoi3yeghjCIwpnIeoqiqapKjaLormsCouh+IwrBqVo2i2a4KlqHItY0Fo+i+' +
'bALAaF4riuOmPjCLILCaSYxCmOpwh6MotAsRoWjMC5LDqUo1m0GxSlaNgtktlgxiuWx2mKL4tnMbpHjiboKB6ZY5m6G42muOBuluJpvjObwbkqLYxG4a5CnWOIvDubpo' +
'iyKZrG6fo3HACxWg6OwwDsYoriUGwMCMCY0iqOgnBKQ4wnsQwUFgcR8FaSJGE+fBzBqMAxkqZwikichLlKFxAEAgIA==';
Calendar.Selection := '6/20/2012';
with Events do
begin
Add('6/20/2012 9:00:00 AM','6/20/2012 11:00:00 AM').Editable := EXSCHEDULELib_TLB.exEditLongLabel;
Add('6/20/2012 10:30:00 AM','6/20/2012 1:00:00 PM').Editable := EXSCHEDULELib_TLB.exEditLongLabel;
Add('6/20/2012 1:00:00 PM','6/20/2012 3:00:00 PM').Editable := EXSCHEDULELib_TLB.exEditLongLabel;
end;
DefaultEventPadding[EXSCHEDULELib_TLB.exPaddingAll] := 2;
end
|
|
92
|
I've noticed that the background of the event while editing is transparent. Is it possible to change it
with Schedule1 do
begin
AllowEditEvent := EXSCHEDULELib_TLB.exLeftClick;
AllowSelectEvent := EXSCHEDULELib_TLB.exDisallow;
DefaultEventLongLabel := '';
DefaultEventShortLabel := DefaultEventLongLabel;
VisualDesign := 'gBFLBWIgBAEHhEJAEGg41hhjNcHhgAE0KhcTiYREEHDMMgRCJ0Ti0ShEGhiAADACAxRDAMgBQKAAzQFAYbhsGCGAAGEZBQgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlST' +
'JcQjKKEUQTFiXIyAKL5CgkBYJBrNM5SFIAEQSKA0TDOQ5To5jEBzIxIIjaJhoNoJChNU4TIDELphECdYqUCq6cp2XgAJhYNhWHYgAIjM60LRtIAELq2bpvXAACCXHala' +
'zsAA+bxvK67cAAd5/YBgOBAAaGC4NQ7EAANHC8Mw3DgAGLkORZHigACzS7MMxzIACQx3HqfaAABK6HomS5NUTTNR0TLNAy3HqWZpsOYZBima4lRTHNxxTBMIz3Bp+YI4' +
'DgC5FnOCx6jkXY5DcSxlkOGxujMWo6DaCwFhOKzgFeOw1lAAoXjuXpvngAAQBAgI';
Calendar.Selection := '6/20/2012';
with Events do
begin
Add('6/20/2012 9:00:00 AM','6/20/2012 11:00:00 AM').Editable := EXSCHEDULELib_TLB.exEditLongLabel;
Add('6/20/2012 11:00:00 AM','6/20/2012 1:00:00 PM').Editable := EXSCHEDULELib_TLB.exEditLongLabel;
Add('6/20/2012 1:00:00 PM','6/20/2012 3:00:00 PM').Editable := EXSCHEDULELib_TLB.exEditLongLabel;
end;
Background[EXSCHEDULELib_TLB.exScheduleEditEventBackColor] := $ff;
end
|
|
91
|
How can I edit the Event.LongLabel property of the Event rather than ExtraLabel
with Schedule1 do
begin
AllowEditEvent := EXSCHEDULELib_TLB.exLeftClick;
AllowSelectEvent := EXSCHEDULELib_TLB.exDisallow;
DefaultEventLongLabel := '';
DefaultEventShortLabel := DefaultEventLongLabel;
Calendar.Selection := '6/20/2012';
with Events do
begin
Add('6/20/2012 9:00:00 AM','6/20/2012 11:00:00 AM').Editable := EXSCHEDULELib_TLB.exEditLongLabel;
Add('6/20/2012 11:00:00 AM','6/20/2012 1:00:00 PM').Editable := EXSCHEDULELib_TLB.exEditLongLabel;
Add('6/20/2012 1:00:00 PM','6/20/2012 3:00:00 PM').Editable := EXSCHEDULELib_TLB.exEditLongLabel;
end;
end
|
|
90
|
Is it possible to edit the event at a single click rather than double click
with Schedule1 do
begin
AllowEditEvent := EXSCHEDULELib_TLB.exLeftClick;
AllowSelectEvent := EXSCHEDULELib_TLB.exDisallow;
Calendar.Selection := '6/20/2012';
with Events do
begin
Add('6/20/2012 9:00:00 AM','6/20/2012 11:00:00 AM');
Add('6/20/2012 11:00:00 AM','6/20/2012 1:00:00 PM');
Add('6/20/2012 1:00:00 PM','6/20/2012 3:00:00 PM');
end;
end
|
|
89
|
How can I prevent editing the events
with Schedule1 do
begin
AllowEditEvent := EXSCHEDULELib_TLB.exDisallow;
end
|
|
88
|
How can I prevent selecting the events
with Schedule1 do
begin
AllowSelectEvent := EXSCHEDULELib_TLB.exDisallow;
end
|
|
87
|
The event gets blue when selected. It is possible to draw a frame instead
with Schedule1 do
begin
SelectEventStyle := Integer(EXSCHEDULELib_TLB.exLinesThicker) Or Integer(EXSCHEDULELib_TLB.exLinesSolid);
end
|
|
86
|
Is there an event that fires when the user selects a different day/week/month
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
procedure TForm1.Schedule1LayoutEndChanging(ASender: TObject; Operation : LayoutChangingEnum);
begin
with Schedule1 do
begin
OutputDebugString( Operation );
OutputDebugString( 'should be on exCalendarSelectionChange(1)' );
end
end;
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
procedure TForm1.Schedule1LayoutStartChanging(ASender: TObject; Operation : LayoutChangingEnum);
begin
with Schedule1 do
begin
OutputDebugString( Operation );
OutputDebugString( 'should be on exCalendarSelectionChange(1)' );
end
end;
|
|
85
|
Can I use and display just the Caption of the Event
with Schedule1 do
begin
DefaultEventLongLabel := '<%=%5%>';
DefaultEventShortLabel := DefaultEventLongLabel;
Calendar.Selection := '6/20/2012';
with Events do
begin
Add('6/20/2012 9:00:00 AM','6/20/2012 11:00:00 AM').Caption := 'caption 1';
Add('6/20/2012 11:00:00 AM','6/20/2012 1:00:00 PM').Caption := 'caption 2';
Add('6/20/2012 1:00:00 PM','6/20/2012 3:00:00 PM').Caption := 'caption 3';
end;
end
|
|
84
|
How can I use the Caption property of the Event
with Schedule1 do
begin
DefaultEventLongLabel := '<%=%256%><br><b><%=%5%>';
DefaultEventShortLabel := DefaultEventLongLabel;
Calendar.Selection := '6/20/2012';
with Events do
begin
Add('6/20/2012 9:00:00 AM','6/20/2012 11:00:00 AM').Caption := 'caption 1';
with Add('6/20/2012 11:00:00 AM','6/20/2012 1:00:00 PM') do
begin
LongLabel := '';
ExtraLabel := '<%=%5%>';
Caption := 'caption 2';
end;
with Add('6/20/2012 1:00:00 PM','6/20/2012 3:00:00 PM') do
begin
LongLabel := '<%=%256%><br><b><%=%5%><br><fgcolor=808080>another text';
Caption := 'caption 3';
end;
end;
end
|
|
83
|
Is it possible to display a view of appointments with more than one person
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '6/20/2012';
DisplayGroupingButton := True;
ShowGroupingEvents := True;
with Groups do
begin
with Add(1,'Mihai') do
begin
EventBackColor := $ff;
HeaderForeColor := EventBackColor;
Visible := True;
Title := Caption;
end;
with Add(2,'Dave') do
begin
EventBackColor := $ff00;
HeaderForeColor := EventBackColor;
Visible := True;
Title := Caption;
end;
with Add(3,'Enrike') do
begin
EventBackColor := $ff8080;
HeaderForeColor := EventBackColor;
Visible := True;
Title := Caption;
end;
end;
DefaultEventLongLabel := '<%=%256%><br><%=%263%>';
with Events do
begin
Add('6/20/2012 10:00:00 AM','6/20/2012 1:30:00 PM').GroupID := 1;
Add('6/20/2012 11:00:00 AM','6/20/2012 1:30:00 PM').GroupID := 2;
Add('6/20/2012 1:30:00 PM','6/20/2012 3:00:00 PM').GroupID := 3;
end;
EndUpdate();
end
|
|
82
|
How can I prevent selecting more dates in the schedule view
with Schedule1 do
begin
ScrollBars := EXSCHEDULELib_TLB.exNoScroll;
AllowMoveSchedule := EXSCHEDULELib_TLB.exDisallow;
Calendar.SingleSel := True;
end
|
|
81
|
How can I get ride of the control's scroll bars
with Schedule1 do
begin
ScrollBars := EXSCHEDULELib_TLB.exNoScroll;
AllowMoveSchedule := EXSCHEDULELib_TLB.exDisallow;
end
|
|
80
|
I am hiding the Calendar section of the control, the question is how can I select another date in the scheduler
with Schedule1 do
begin
OnResizeControl := Integer(EXSCHEDULELib_TLB.exChangePanels) Or Integer(EXSCHEDULELib_TLB.exHideSplitter);
Calendar.Selection := '1/1/2001';
end
|
|
79
|
How can I add an event to indicate the Easter Sunday
with Schedule1 do
begin
with Calendar do
begin
ShowNonMonthDays := False;
FirstWeekDay := EXSCHEDULELib_TLB.exSunday;
Selection := 'month(value) in (3,4)';
HighlightEvent.BackColor := $808080;
ShowYearScroll := True;
end;
Background[EXSCHEDULELib_TLB.exCalendarSelBackColorUnFocus] := Background[EXSCHEDULELib_TLB.exCalendarSelBackColor];
Background[EXSCHEDULELib_TLB.exScheduleBorderSelColorUnFocus] := Background[EXSCHEDULELib_TLB.exCalendarSelBackColor];
with Events do
begin
with Add('6/12/2012 10:00:00 AM','6/12/2012 2:00:00 PM') do
begin
AllDayEvent := True;
Repetitive := 'not(month(value) in (3,4,5)) ? 0 : ( floor(value)=(2:=floor(date(dateS(''3/1/'' + year(value)) + ((1:=(((255 - 11 * (year(value) m' +
'od 19)) - 21) mod 30) + 21) + (=:1 > 48 ? -1 : 0) + 6 - ((year(value) + int(year(value) / 4)) + =:1 + (=:1 > 48 ? -1 : 0) + 1) m' +
'od 7)))))';
LongLabel := 'EASTER of <%=year(%1)%> falls in<br><%=%1%>';
ShortLabel := LongLabel;
end;
end;
end
|
|
78
|
I need a repetitive event happens every n-days, and stops after m-times. Can your control handle this
with Schedule1 do
begin
SelectEventStyle := Integer(EXSCHEDULELib_TLB.exLinesThick) Or Integer(EXSCHEDULELib_TLB.exLinesSolid);
with Calendar do
begin
NonworkingDays := 0;
ShowNonMonthDays := False;
FirstWeekDay := EXSCHEDULELib_TLB.exSunday;
Selection := '1/1/2012';
Selection := 'month(value) = 6';
HighlightEvent.FontSize := 10;
end;
BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
Background[EXSCHEDULELib_TLB.exScheduleMarkTodayBackColor] := $f0f0f0;
with Events do
begin
with Add('6/12/2012 10:00:00 AM','6/12/2012 2:00:00 PM') do
begin
Repetitive := '(value >= (0:=#6/1/2012#)) and ( (value - =:0) mod (1:=5) = 0) and (value-=:0) < (3*=:1)';
Selected := True;
end;
end;
end
|
|
77
|
How can I add a repetitive event to occur every n days
with Schedule1 do
begin
SelectEventStyle := Integer(EXSCHEDULELib_TLB.exLinesThick) Or Integer(EXSCHEDULELib_TLB.exLinesSolid);
with Calendar do
begin
NonworkingDays := 0;
ShowNonMonthDays := False;
FirstWeekDay := EXSCHEDULELib_TLB.exSunday;
Selection := 'month(value) = 6';
HighlightEvent.FontSize := 10;
end;
BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
Background[EXSCHEDULELib_TLB.exScheduleMarkTodayBackColor] := $f0f0f0;
with Events do
begin
with Add('6/12/2012 10:00:00 AM','6/12/2012 2:00:00 PM') do
begin
Repetitive := 'value >= #6/1/2012# and ( (value - #6/1/2012#) mod 5 = 0)';
Selected := True;
end;
end;
end
|
|
76
|
I am using the AutoHide option, just wondering if there is any event that notifies once the calendar panel shows or hides
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
procedure TForm1.Schedule1LayoutEndChanging(ASender: TObject; Operation : LayoutChangingEnum);
begin
with Schedule1 do
begin
OutputDebugString( 'End exLayoutCalendarAutoHide(7)' );
OutputDebugString( Operation );
end
end;
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
procedure TForm1.Schedule1LayoutStartChanging(ASender: TObject; Operation : LayoutChangingEnum);
begin
with Schedule1 do
begin
OutputDebugString( 'Start exLayoutCalendarAutoHide(7)' );
OutputDebugString( Operation );
end
end;
with Schedule1 do
begin
OnResizeControl := EXSCHEDULELib_TLB.exCalendarAutoHide;
end
|
|
75
|
Is it possible to display the same event on multiple days
with Schedule1 do
begin
SelectEventStyle := Integer(EXSCHEDULELib_TLB.exLinesThick) Or Integer(EXSCHEDULELib_TLB.exLinesSolid);
with Calendar do
begin
NonworkingDays := 0;
ShowNonMonthDays := False;
FirstWeekDay := EXSCHEDULELib_TLB.exSunday;
Selection := '1/1/2012';
Selection := 'month(value) = 6';
HighlightEvent.FontSize := 10;
end;
BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
Background[EXSCHEDULELib_TLB.exScheduleMarkTodayBackColor] := $f0f0f0;
with Events do
begin
with Add('6/12/2012 10:00:00 AM','6/12/2012 2:00:00 PM') do
begin
Repetitive := 'value in (#6/8/2012#,#6/11/2012#,#6/20/2012#)';
Selected := True;
end;
end;
end
|
|
74
|
How can I change the selection background color so it is the same if the control loses the focus
with Schedule1 do
begin
with Calendar do
begin
NonworkingDays := 0;
ShowNonMonthDays := False;
Selection := '6/12/2012';
HighlightEvent.FontSize := 10;
end;
BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
Background[EXSCHEDULELib_TLB.exScheduleMarkTodayBackColor] := $f0f0f0;
Events.Add('6/12/2012 10:00:00 AM','6/12/2012 2:00:00 PM');
Background[EXSCHEDULELib_TLB.exCalendarSelBackColorUnFocus] := Background[EXSCHEDULELib_TLB.exCalendarSelBackColor];
end
|
|
73
|
How can I add a repetitive event so it occurs every Monday
with Schedule1 do
begin
with Calendar do
begin
NonworkingDays := 0;
ShowNonMonthDays := False;
FirstWeekDay := EXSCHEDULELib_TLB.exSunday;
Selection := 'month(value) = 6';
with HighlightEvent do
begin
FontSize := 10;
BackColor := $808080;
end;
end;
BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
Background[EXSCHEDULELib_TLB.exScheduleMarkTodayBackColor] := $f0f0f0;
with Events do
begin
Add('6/12/2012 10:00:00 AM','6/12/2012 2:00:00 PM').Repetitive := 'weekday(value) = 1';
end;
end
|
|
72
|
How can I select the current month
with Schedule1 do
begin
with Calendar do
begin
NonworkingDays := 0;
ShowNonMonthDays := False;
FirstWeekDay := EXSCHEDULELib_TLB.exSunday;
Selection := 'month(value) = month(date(``))';
end;
BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
Background[EXSCHEDULELib_TLB.exScheduleMarkTodayBackColor] := $f0f0f0;
end
|
|
71
|
How can I select the next two days
with Schedule1 do
begin
with Calendar do
begin
NonworkingDays := 0;
ShowNonMonthDays := False;
FirstWeekDay := EXSCHEDULELib_TLB.exSunday;
Selection := '(value - int(date(``))) in (1,2,0)';
end;
BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
Background[EXSCHEDULELib_TLB.exScheduleMarkTodayBackColor] := $f0f0f0;
end
|
|
70
|
How can I select the last two days
with Schedule1 do
begin
with Calendar do
begin
NonworkingDays := 0;
ShowNonMonthDays := False;
FirstWeekDay := EXSCHEDULELib_TLB.exSunday;
Selection := '(int(date(``)) - value) in (1,2,0)';
end;
BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
Background[EXSCHEDULELib_TLB.exScheduleMarkTodayBackColor] := $f0f0f0;
end
|
|
69
|
How can I select the current week
with Schedule1 do
begin
with Calendar do
begin
NonworkingDays := 0;
ShowNonMonthDays := False;
FirstWeekDay := EXSCHEDULELib_TLB.exSunday;
Selection := '(int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(date(``))-1)/7))';
end;
BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
Background[EXSCHEDULELib_TLB.exScheduleMarkTodayBackColor] := $f0f0f0;
end
|
|
68
|
Is it possible to highlight or change the background or foreground color for the today date in the schedule panel
with Schedule1 do
begin
with Calendar do
begin
NonworkingDays := 0;
ShowNonMonthDays := False;
FirstWeekDay := EXSCHEDULELib_TLB.exSunday;
Selection := 'month(value) = month(date(``)) and (int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(' +
'date(``))-1)/7))';
end;
BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
Background[EXSCHEDULELib_TLB.exScheduleMarkTodayBackColor] := $f0f0f0;
end
|
|
67
|
How can I display no working/non-working days in the control
with Schedule1 do
begin
with Calendar do
begin
NonworkingDays := 0;
ShowNonMonthDays := False;
FirstWeekDay := EXSCHEDULELib_TLB.exMonday;
end;
BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
end
|
|
66
|
The schedule displays a blue border around the selected dates. How can I get ride of that
with Schedule1 do
begin
with Calendar do
begin
ShowNonMonthDays := False;
Selection := '6/18/2012';
end;
BorderSelStyle := EXSCHEDULELib_TLB.exNoLines;
end
|
|
65
|
The calendar panel shows days that belongs to another month. How can I display just the days within the current month
with Schedule1 do
begin
Calendar.ShowNonMonthDays := False;
end
|
|
64
|
Is it possible to show the non-working days with a solid color instead
with Schedule1 do
begin
with Calendar do
begin
Selection := '6/14/2012';
Selection := 'value in (#6/14/2012#,#6/15/2012#,#6/16/2012#,#6/17/2012#)';
FirstWeekDay := EXSCHEDULELib_TLB.exMonday;
NonworkingDaysPattern := EXSCHEDULELib_TLB.exPatternSolid;
NonworkingDaysColor := $e0e0e0;
end;
end
|
|
63
|
How can I display the now-working days in the schedule panel too
with Schedule1 do
begin
with Calendar do
begin
Selection := '6/14/2012';
Selection := 'value in (#6/14/2012#,#6/15/2012#,#6/16/2012#,#6/17/2012#)';
FirstWeekDay := EXSCHEDULELib_TLB.exMonday;
end;
NonworkingTimes.Add(1,'00:00','00:00',-1);
end
|
|
62
|
How can I make the control read-only
with Schedule1 do
begin
AllowCreateEvent := EXSCHEDULELib_TLB.exDisallow;
AllowMoveEvent := EXSCHEDULELib_TLB.exDisallow;
AllowResizeEvent := EXSCHEDULELib_TLB.exDisallow;
AllowMoveSchedule := EXSCHEDULELib_TLB.exLeftClick;
AllowSelectEvent := EXSCHEDULELib_TLB.exDisallow;
Calendar.Selection := '5/24/2012';
Calendar.Selection := 'value in (#05/24/2012#,#05/25/2012#,#05/26/2012#)';
Events.Add('5/25/2012 9:30:00 AM','5/25/2012 1:00:00 PM');
end
|
|
61
|
How can I check/uncheck a group, so it is visible after I add it
with Schedule1 do
begin
DisplayGroupingButton := True;
ShowGroupingEvents := True;
Groups.Add(1,'Pro').Visible := True;
end
|
|
60
|
The drop down button to show groups is not visible, even I set the DisplayGroupingButton. What Can I do
with Schedule1 do
begin
DisplayGroupingButton := True;
ShowGroupingEvents := True;
end
|
|
59
|
It is possible to translate "All" to "Todos" or to something else
with Schedule1 do
begin
Description[EXSCHEDULELib_TLB.exGroupBarAll] := '(todos)';
DisplayGroupingButton := True;
ShowGroupingEvents := True;
Groups.Add(1,'Pro');
end
|
|
58
|
How can I remove the control's scroll bars
with Schedule1 do
begin
ScrollBars := EXSCHEDULELib_TLB.exNoScroll;
end
|
|
57
|
How can I select a month
with Schedule1 do
begin
Calendar.Selection := 'month(value) = month(date(``))';
end
|
|
56
|
How can I display two or more dates in the scheduler (Method 2)
with Schedule1 do
begin
with Calendar do
begin
Selection := '5/24/2012';
Selection := 'value in ( #5/24/2012#, #5/25/2012# )';
end;
end
|
|
55
|
How can I display two or more dates in the scheduler (Method 1)
with Schedule1 do
begin
with Calendar do
begin
Selection := '0';
SelectDate['5/24/2012'] := True;
SelectDate['5/25/2012'] := True;
end;
end
|
|
54
|
How can I define a different color for nonworking part for different days
with Schedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '5/21/2012';
Selection := '(value >= #05/21/2012#) and (value <= #05/25/2012#)';
FirstWeekDay := EXSCHEDULELib_TLB.exMonday;
end;
with NonworkingPatterns do
begin
Add(1234,EXSCHEDULELib_TLB.exPatternBDiagonal).Pattern.Color := $ff;
Add(1235,EXSCHEDULELib_TLB.exPatternBDiagonal).Pattern.Color := $ff00;
Add(1236,EXSCHEDULELib_TLB.exPatternBDiagonal).Pattern.Color := $ff0000;
with Add(1237,Integer(EXSCHEDULELib_TLB.exPatternFrameThick) Or Integer(EXSCHEDULELib_TLB.exPatternCross)) do
begin
Pattern.Color := $808080;
Pattern.FrameColor := $404040;
BackColor := $ffff;
end;
end;
with NonworkingTimes do
begin
Add('weekday(value) in (0,1)','10:00','11:45',1234);
Add('weekday(value) = 2','00:00','08:45',1235);
Add('weekday(value) = 2','15:00','24:00',1235);
Add('weekday(value) in (3,5)','12:15','13:00',1236);
Add('weekday(value) = 4','13:30','15:00',1237);
end;
ShowNonworkingTime := EXSCHEDULELib_TLB.exShowNonworkingTimeSemi;
EndUpdate();
end
|
|
53
|
Is it possible to show both nonworking and the events, using semi-transparent color
with Schedule1 do
begin
with Calendar do
begin
Selection := '5/24/2012';
Selection := 'value in (#05/24/2012#,#05/25/2012#,#05/26/2012#)';
end;
with NonworkingPatterns do
begin
Add(1234,EXSCHEDULELib_TLB.exPatternBrick);
with Add(9871,Integer(EXSCHEDULELib_TLB.exPatternFrameThick) Or Integer(EXSCHEDULELib_TLB.exPatternYard)) do
begin
BackColor := $ff;
end;
with Add(9872,Integer(EXSCHEDULELib_TLB.exPatternFrameThick) Or Integer(EXSCHEDULELib_TLB.exPatternYard)) do
begin
BackColor := $ffff;
end;
end;
with NonworkingTimes do
begin
Add('1','00:00','08:45',1234);
Add('weekday(value) = 5','10:00','11:45',9871);
Add('weekday(value) = 4','12:00','12:35',9872);
end;
Events.Add('5/25/2012 9:30:00 AM','5/25/2012 1:00:00 PM');
ShowNonworkingTime := EXSCHEDULELib_TLB.exShowNonworkingTimeSemi;
end
|
|
52
|
Is it possible to show the nonworking part behind, on the back
with Schedule1 do
begin
with Calendar do
begin
Selection := '5/24/2012';
Selection := 'value in (#05/24/2012#,#05/25/2012#,#05/26/2012#)';
end;
with NonworkingPatterns do
begin
Add(1234,EXSCHEDULELib_TLB.exPatternBrick);
with Add(9871,Integer(EXSCHEDULELib_TLB.exPatternFrameThick) Or Integer(EXSCHEDULELib_TLB.exPatternYard)) do
begin
BackColor := $ff;
end;
with Add(9872,Integer(EXSCHEDULELib_TLB.exPatternFrameThick) Or Integer(EXSCHEDULELib_TLB.exPatternYard)) do
begin
BackColor := $ffff;
end;
end;
with NonworkingTimes do
begin
Add('1','00:00','08:45',1234);
Add('weekday(value) = 5','10:00','11:45',9871);
Add('weekday(value) = 4','12:00','12:35',9872);
end;
Events.Add('5/25/2012 9:30:00 AM','5/25/2012 1:00:00 PM');
ShowNonworkingTime := EXSCHEDULELib_TLB.exShowNonworkingTimeBack;
end
|
|
51
|
Can you explain how the non working day patterns work and how to define
for different days of the week
with Schedule1 do
begin
with Calendar do
begin
Selection := '5/24/2012';
Selection := 'value in (#05/24/2012#,#05/25/2012#,#05/26/2012#)';
end;
with NonworkingPatterns do
begin
Add(1234,EXSCHEDULELib_TLB.exPatternBrick);
with Add(9871,Integer(EXSCHEDULELib_TLB.exPatternFrameThick) Or Integer(EXSCHEDULELib_TLB.exPatternYard)) do
begin
BackColor := $ff;
end;
with Add(9872,Integer(EXSCHEDULELib_TLB.exPatternFrameThick) Or Integer(EXSCHEDULELib_TLB.exPatternYard)) do
begin
BackColor := $ffff;
end;
end;
with NonworkingTimes do
begin
Add('1','00:00','08:45',1234);
Add('weekday(value) = 5','10:00','11:45',9871);
Add('weekday(value) = 4','12:00','12:35',9872);
end;
end
|
|
50
|
How can I add a nonworking time
with Schedule1 do
begin
with NonworkingTimes do
begin
Add('1','00:00','08:45',-1);
Add('weekday(value) = weekday(date(``))','10:00','11:15',-1);
end;
end
|
|
49
|
How can I get the event from the cursor
// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.Schedule1MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
with Schedule1 do
begin
OutputDebugString( 'Calendar.DateFromPoint' );
OutputDebugString( Calendar.DateFromPoint[-1,-1] );
OutputDebugString( 'AnchorFromPoint' );
OutputDebugString( AnchorFromPoint[-1,-1] );
OutputDebugString( 'DateTimeFromPoint' );
OutputDebugString( DateTimeFromPoint[-1,-1] );
OutputDebugString( 'TimeFromPoint' );
OutputDebugString( TimeFromPoint[-1,-1] );
OutputDebugString( 'TimeScaleFromPoint' );
OutputDebugString( TimeScaleFromPoint[-1,-1] );
OutputDebugString( 'GroupFromPoint' );
OutputDebugString( GroupFromPoint[-1,-1] );
OutputDebugString( 'GroupHeaderFromPoint' );
OutputDebugString( GroupHeaderFromPoint[-1,-1] );
OutputDebugString( 'MarkZoneFromPoint' );
OutputDebugString( MarkZoneFromPoint[-1,-1] );
OutputDebugString( 'NonworkingTimeFromPoint' );
OutputDebugString( NonworkingTimeFromPoint[-1,-1] );
OutputDebugString( 'MarkTimeFromPoint' );
OutputDebugString( MarkTimeFromPoint[-1,-1] );
OutputDebugString( 'EventFromPoint' );
OutputDebugString( EventFromPoint[-1,-1] );
OutputDebugString( 'PictureFromPoint' );
OutputDebugString( PictureFromPoint[-1,-1] );
end
end;
with Schedule1 do
begin
BeginUpdate();
AllowMultiDaysEvent := False;
AllowCreateEvent := Integer(EXSCHEDULELib_TLB.exCTRLKey) Or Integer(EXSCHEDULELib_TLB.exLeftClick);
AllowMoveEvent := Integer(EXSCHEDULELib_TLB.exCTRLKey) Or Integer(EXSCHEDULELib_TLB.exLeftClick);
AllowMoveTimeScale := EXSCHEDULELib_TLB.exLeftClick;
AllowMoveSchedule := EXSCHEDULELib_TLB.exLeftClick;
AllowSelectEvent := Integer(EXSCHEDULELib_TLB.exCTRLKey) Or Integer(EXSCHEDULELib_TLB.exLeftClick);
AllowResizeEvent := EXSCHEDULELib_TLB.exLeftClick;
Calendar.MaxMonthY := 6;
SelectEventStyle := Integer(EXSCHEDULELib_TLB.exLinesThicker) Or Integer(EXSCHEDULELib_TLB.exLinesSolid);
Calendar.Selection := '5/24/2012';
with MarkTimes.Add('timer','5/24/2012 11:35:00 AM') do
begin
TimeScaleLabel := '';
Label := '<fgcolor=FF0000>Time: <b><%hh%>:<%nn%> <%AM/PM%></b><br>Date: <b><%loc_sdate%>';
LabelAlign := EXSCHEDULELib_TLB.exBottomRight;
Line := Integer(EXSCHEDULELib_TLB.exLinesThicker) Or Integer(EXSCHEDULELib_TLB.exLinesDash);
BodyEventBackColor := $80;
BodyEventForeColor := $ffffff;
Movable := True;
end;
with Events do
begin
Add('5/24/2012 9:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM');
Add('5/24/2012 11:30:00 AM','5/24/2012 2:30:00 PM');
Add('5/24/2012 12:45:00 PM','5/24/2012 3:45:00 PM');
end;
EndUpdate();
end
|
|
48
|
How can I show the timer only in the chart section
with Schedule1 do
begin
Calendar.Selection := '5/24/2012';
with MarkTimes.Add('timer','5/24/2012 11:35:00 AM') do
begin
Label := ' <font ;12>timer</font> ';
LabelAlign := EXSCHEDULELib_TLB.exBottomRight;
TimeScaleLabel := '';
TimeScaleLine := EXSCHEDULELib_TLB.exNoLines;
end;
end
|
|
47
|
How can I let the user to move the timer from the cursor
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
with MarkTimes.Add('timer','5/24/2012 11:35:00 AM') do
begin
TimeScaleLabel := '';
Label := '<fgcolor=FF0000>Time: <b><%hh%>:<%nn%> <%AM/PM%></b><br>Date: <b><%loc_sdate%>';
LabelAlign := EXSCHEDULELib_TLB.exBottomRight;
Line := Integer(EXSCHEDULELib_TLB.exLinesThicker) Or Integer(EXSCHEDULELib_TLB.exLinesDash);
BodyEventBackColor := $80;
BodyEventForeColor := $ffffff;
Movable := True;
end;
with Events do
begin
Add('5/24/2012 9:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM');
Add('5/24/2012 11:30:00 AM','5/24/2012 2:30:00 PM');
Add('5/24/2012 12:45:00 PM','5/24/2012 3:45:00 PM');
end;
EndUpdate();
end
|
|
46
|
How can I show the timer only in the time scale
with Schedule1 do
begin
Calendar.Selection := '5/24/2012';
with MarkTimes.Add('timer','5/24/2012 11:35:00 AM') do
begin
TimeScaleLabel := ' <font ;12>timer</font> ';
Line := EXSCHEDULELib_TLB.exNoLines;
end;
end
|
|
45
|
I have seen some screen shots and noticed, that you can place images on a timer. How can I do that
with Schedule1 do
begin
BeginUpdate();
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
Calendar.Selection := '5/24/2012';
StatusEventSize := 8;
StatusEventColor := RGB(255,255,255);
with MarkTimes.Add('timer','5/24/2012 11:35:00 AM') do
begin
Label := '<img>pic1</img>';
TimeScaleLabel := '<fgcolor=FF0000><b><%hh%>:<%nn%> <%AM/PM%><br><c><img>1</img>';
LabelAlign := EXSCHEDULELib_TLB.exMiddleRight;
Line := Integer(EXSCHEDULELib_TLB.exLinesThicker) Or Integer(EXSCHEDULELib_TLB.exLinesDash);
Movable := True;
StatusEventPattern.Type := EXSCHEDULELib_TLB.exPatternShadow;
StatusEventPattern.Color := $ff;
end;
with Events do
begin
Add('5/24/2012 9:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM');
Add('5/24/2012 11:30:00 AM','5/24/2012 2:30:00 PM');
Add('5/24/2012 12:45:00 PM','5/24/2012 3:45:00 PM');
end;
EndUpdate();
end
|
|
44
|
How can I change the timer's color
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
with MarkTimes do
begin
with Add('timer','5/24/2012 11:35:00 AM') do
begin
Movable := True;
LineColor := $ff0000;
StatusEventBackColor := $ff0000;
TimeScaleLineColor := $ff0000;
TimeScaleLabel := '<fgcolor=0000FF><b><%hh%>:<%nn%> <%AM/PM%>';
end;
end;
EndUpdate();
end
|
|
43
|
Can I add multiple timers with different colors
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
with MarkTimes do
begin
with Add('timer1','5/24/2012 9:35:00 AM') do
begin
Movable := True;
StatusEventBackColor := $ff;
end;
with Add('timer2','5/24/2012 1:35:00 PM') do
begin
Movable := True;
LineColor := $ff00;
StatusEventBackColor := LineColor;
TimeScaleLineColor := LineColor;
TimeScaleLabel := '<fgcolor=00FF00><b><%hh%>:<%nn%> <%AM/PM%>';
end;
end;
with Events do
begin
Add('5/24/2012 9:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM');
Add('5/24/2012 11:30:00 AM','5/24/2012 2:30:00 PM');
Add('5/24/2012 12:45:00 PM','5/24/2012 3:45:00 PM');
end;
EndUpdate();
end
|
|
42
|
How can I specify a different color for the status of the event that intersects with the timer
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
with MarkTimes.Add('timer','5/24/2012 11:35:00 AM') do
begin
TimeScaleLabelAlign := EXSCHEDULELib_TLB.exTopCenter;
Line := Integer(EXSCHEDULELib_TLB.exLinesThick) Or Integer(EXSCHEDULELib_TLB.exLinesHDot4);
TimeScaleLine := EXSCHEDULELib_TLB.exLinesHDot4;
StatusEventBackColor := $ff;
Movable := True;
end;
with Events do
begin
Add('5/24/2012 9:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM');
Add('5/24/2012 11:30:00 AM','5/24/2012 2:30:00 PM');
Add('5/24/2012 12:45:00 PM','5/24/2012 3:45:00 PM');
end;
EndUpdate();
end
|
|
41
|
How can the chart displays the events from the timer with a different color
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
with MarkTimes.Add('timer','5/24/2012 11:35:00 AM') do
begin
TimeScaleLabel := '';
Label := '<fgcolor=FF0000>Time: <b><%hh%>:<%nn%> <%AM/PM%></b><br>Date: <b><%loc_sdate%>';
LabelAlign := EXSCHEDULELib_TLB.exBottomRight;
Line := Integer(EXSCHEDULELib_TLB.exLinesThicker) Or Integer(EXSCHEDULELib_TLB.exLinesDash);
BodyEventBackColor := $80;
BodyEventForeColor := $ffffff;
Movable := True;
end;
with Events do
begin
Add('5/24/2012 9:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM');
Add('5/24/2012 11:30:00 AM','5/24/2012 2:30:00 PM');
Add('5/24/2012 12:45:00 PM','5/24/2012 3:45:00 PM');
end;
EndUpdate();
end
|
|
40
|
Is it possible to display the timer's label on the chart, instead time scales
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
with MarkTimes.Add('timer','5/24/2012 11:35:00 AM') do
begin
TimeScaleLabel := '';
Label := '<fgcolor=FF0000>Time: <b><%hh%>:<%nn%> <%AM/PM%></b><br>Date: <b><%loc_sdate%>';
LabelAlign := EXSCHEDULELib_TLB.exBottomRight;
Line := Integer(EXSCHEDULELib_TLB.exLinesThicker) Or Integer(EXSCHEDULELib_TLB.exLinesDash);
end;
with Events do
begin
Add('5/24/2012 9:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM');
Add('5/24/2012 11:30:00 AM','5/24/2012 2:30:00 PM');
Add('5/24/2012 12:45:00 PM','5/24/2012 3:45:00 PM');
end;
EndUpdate();
end
|
|
39
|
How can I add a timer to the scheduler
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
MarkTimes.Add('timer','5/24/2012 11:35:00 AM');
with Events do
begin
Add('5/24/2012 9:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM');
Add('5/24/2012 11:30:00 AM','5/24/2012 2:30:00 PM');
Add('5/24/2012 12:45:00 PM','5/24/2012 3:45:00 PM');
end;
EndUpdate();
end
|
|
38
|
Is it possible to define the small increment to 5 minutes
with Schedule1 do
begin
DayEndTime := '10:00';
TimeScales.Item[OleVariant(0)].MinorTimeRuler := '00:05';
end
|
|
37
|
How can I change the time format to 24 hours to be displayed in the control's time scale
with Schedule1 do
begin
with TimeScales.Item[OleVariant(0)] do
begin
MajorTimeLabel := '<%hh%>:<%nn%>';
Width := 32;
end;
end
|
|
36
|
How can I change the time zone
with Schedule1 do
begin
DayEndTime := '13:00';
with TimeScales.Item[OleVariant(0)] do
begin
TimeZone := '+03:00';
Caption := TimeZone;
end;
end
|
|
35
|
Is it possible to add more time scales
with Schedule1 do
begin
DayEndTime := '13:00';
with TimeScales.Add('+03:00') do
begin
AlignLeft := False;
Caption := 'EST <b>+03';
end;
end
|
|
34
|
How can I get any event to be notified if a picture or icon is clicked (Method 2)
// PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
procedure TForm1.Schedule1PictureClick(ASender: TObject; Key : WideString);
begin
with Schedule1 do
begin
OutputDebugString( Key );
end
end;
with Schedule1 do
begin
BeginUpdate();
ShowSelectEvent := False;
Calendar.Selection := '5/24/2012';
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with Pictures do
begin
Add('pic1','c:\exontrol\images\card.png');
Add('pic2','c:\exontrol\images\diary.png');
end;
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM').Pictures := 'pic1/pic2';
Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM').Pictures := '1,2/3';
Add('5/24/2012 1:00:00 PM','5/24/2012 3:45:00 PM').ExtraPictures := 'pic2/1';
end;
EndUpdate();
end
|
|
33
|
How can I display a tooltip for an anchor element, for instance
// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.Schedule1MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
with Schedule1 do
begin
s := AnchorFromPoint[-1,-1];
ShowToolTip(s,'info','','+16',Null);
end
end;
with Schedule1 do
begin
BeginUpdate();
ShowSelectEvent := False;
Calendar.Selection := '5/24/2012';
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM').ExtraLabel := '<a remove>remove</a>';
Add('5/24/2012 1:45:00 PM','5/24/2012 3:45:00 PM');
end;
EndUpdate();
end
|
|
32
|
Is it possible to prevent selecting events
with Schedule1 do
begin
BeginUpdate();
ShowSelectEvent := False;
Calendar.Selection := '5/24/2012';
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM').Selected := True;
Add('5/24/2012 1:45:00 PM','5/24/2012 3:45:00 PM');
end;
EndUpdate();
end
|
|
31
|
How can I get any event to be notified if a picture or icon is clicked (Method 1)
// AnchorClick event - Occurs when an anchor element is clicked.
procedure TForm1.Schedule1AnchorClick(ASender: TObject; AnchorID : WideString;Options : WideString);
begin
with Schedule1 do
begin
OutputDebugString( AnchorID );
end
end;
with Schedule1 do
begin
BeginUpdate();
ShowSelectEvent := False;
Calendar.Selection := '5/24/2012';
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with Pictures do
begin
Add('pic1','c:\exontrol\images\card.png');
Add('pic2','c:\exontrol\images\diary.png');
end;
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM').ExtraLabel := '<a pic1><img>pic1:32</img></a>';
Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM').ExtraLabel := '<a pic2><img>pic2:48</img></a>';
Add('5/24/2012 1:45:00 PM','5/24/2012 3:45:00 PM').LongLabel := 'Start: <%=%1%><br>End: <%=%2%><br><br>Icon: <a 1><img>1</img></a> - <a 2><img>2</img></a>';
end;
EndUpdate();
end
|
|
30
|
How can I display a picture or an icon to an event
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with Pictures do
begin
Add('pic1','c:\exontrol\images\card.png');
Add('pic2','c:\exontrol\images\diary.png');
end;
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM').ExtraLabel := '<img>pic1:32</img>';
Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM').ExtraLabel := '<img>pic2:48</img>';
Add('5/24/2012 11:30:00 AM','5/24/2012 2:30:00 PM').Pictures := '1/2,3/pic1';
with Add('5/24/2012 12:45:00 PM','5/24/2012 3:45:00 PM') do
begin
ExtraPictures := '1/2';
Pictures := '1,pic1,2,pic2/3';
end;
end;
EndUpdate();
end
|
|
29
|
Is it possible to display the group's caption or ID on the event's label
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
with Groups do
begin
with Add(1,'Group 1') do
begin
Visible := True;
EventBackColor := $808080;
Title := '1''st Group';
end;
with Add(2,'Group 2') do
begin
Visible := True;
EventBackColor := $ff;
Title := '2''nd Group';
end;
end;
DefaultEventLongLabel := '<%=%256%><br>Group''s Caption: <b><%=%262%></b><br>Group''s Title: <b><%=%263%></b>';
DefaultEventShortLabel := DefaultEventLongLabel;
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM').GroupID := 1;
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM').GroupID := 2;
Add('5/24/2012 12:30:00 PM','5/24/2012 2:30:00 PM').GroupID := 1;
end;
EndUpdate();
end
|
|
28
|
How can I show the events from different groups using the same color
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
DisplayGroupingButton := True;
ShowGroupingEvents := True;
ApplyGroupingColors := False;
with Groups do
begin
with Add(1,'Group 1') do
begin
Visible := True;
EventBackColor := $808080;
Title := '1''st Group';
end;
with Add(2,'Group 2') do
begin
Visible := True;
EventBackColor := $ff;
Title := '2''nd Group';
end;
end;
DefaultEventLongLabel := '<%=%256%><br>Group''s Caption: <b><%=%262%></b><br>Group''s Title: <b><%=%263%></b>';
DefaultEventShortLabel := DefaultEventLongLabel;
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM').GroupID := 1;
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM').GroupID := 2;
Add('5/24/2012 12:30:00 PM','5/24/2012 2:30:00 PM').GroupID := 1;
end;
EndUpdate();
end
|
|
27
|
Is it possible to hide the grid lines in the calendar panel
with Schedule1 do
begin
Calendar.ShowGridLines := EXSCHEDULELib_TLB.exNoLines;
end
|
|
26
|
How can I control the number of months displayed on the calendar pane
with Schedule1 do
begin
with Calendar do
begin
MaxMonthX := 2;
MaxMonthY := 2;
end;
end
|
|
25
|
I'm currently evaluating your eXSchedule product and i'm trying to have the header display the month according to local settings. How can I do that (Method 2)
with Schedule1 do
begin
with Calendar do
begin
FirstWeekDay := EXSCHEDULELib_TLB.exMonday;
MonthNames := 'J-A F-E M-A A-P M-A J-U J-L A-U S-P O-C N-V D-C';
WeekDays := 'Du Lu Ma Mi Jo Vi Si';
TodayCaption := 'A z i';
end;
end
|
|
24
|
I'm currently evaluating your eXSchedule product and i'm trying to have the header display the month according to local settings. How can I do that (Method 1)
with Schedule1 do
begin
with Calendar do
begin
FirstWeekDay := LocFirstWeekDay;
MonthNames := LocMonthNames;
WeekDays := LocWeekDays;
AMPM := LocAMPM;
end;
end
|
|
23
|
How can I show the events grouped
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
DisplayGroupingButton := True;
ShowGroupingEvents := True;
with Groups do
begin
with Add(1,'Group 1') do
begin
Visible := True;
EventBackColor := $808080;
HeaderBackColor := EventBackColor;
end;
with Add(2,'Group 2') do
begin
Visible := True;
EventBackColor := $ff;
HeaderBackColor := EventBackColor;
end;
end;
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM').GroupID := 1;
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM').GroupID := 2;
Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM').GroupID := 1;
end;
EndUpdate();
end
|
|
22
|
How can I show 2 or more days in the scheduler
with Schedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '0';
SelectDate['5/24/2012'] := True;
SelectDate['5/25/2012'] := True;
end;
EndUpdate();
end
|
|
21
|
Is it possible to change the first week day
with Schedule1 do
begin
Calendar.FirstWeekDay := EXSCHEDULELib_TLB.exMonday;
end
|
|
20
|
How can I define the new starting / ending points of the day
with Schedule1 do
begin
DayStartTime := '07:30';
DayEndTime := '12:45';
end
|
|
19
|
Is it possible to change the label to be displayed when user moves the events
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
UpdateEventsLabel := 'Start: <%=%1%><br>End: <%=%2%>';
UpdateEventsLabelAlign := EXSCHEDULELib_TLB.exMiddleCenter;
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM');
Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
end;
EndUpdate();
end
|
|
18
|
How can I change the default tooltip when adding new events
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
DefaultEventTooltip := 'Start: <%=%1%><br>End: <%=%2%>';
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
end;
EndUpdate();
end
|
|
17
|
How can I change the default label when adding new events
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
CreateEventLabel := 'Start: <%=%1%><br>End: <%=%2%>';
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
end;
EndUpdate();
end
|
|
16
|
How can I change the default label when adding new events
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
DefaultEventLongLabel := 'Start: <%=%1%><br>End: <%=%2%>';
DefaultEventShortLabel := DefaultEventLongLabel;
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
end;
EndUpdate();
end
|
|
15
|
How can I programatically add events to the control
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM');
Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
end;
EndUpdate();
end
|
|
14
|
How can I hide the status part of a specific event
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM').ShowStatus := False;
Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
end;
EndUpdate();
end
|
|
13
|
Is it possible to change the status color for a specific event
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM').StatusColor := $ff;
Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
end;
EndUpdate();
end
|
|
12
|
Is it possible to change the background color for a specific event
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM').BodyBackColor := $ff;
Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
end;
EndUpdate();
end
|
|
11
|
Can I change the size of the status to be larger
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
StatusEventSize := 8;
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM');
Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
end;
EndUpdate();
end
|
|
10
|
I do not need a status, can I hide it
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
ShowStatusEvent := False;
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM');
Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
end;
EndUpdate();
end
|
|
9
|
Is it possible to change the status's default background color
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
StatusEventColor := RGB(255,0,0);
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM');
Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
end;
EndUpdate();
end
|
|
8
|
How can I change the visual appearance of the Events (Method 2)
with Schedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
VisualDesign := 'gBFLBWIgBAEHhEJAEGg55hAvCcHAkIbD/i0JE0KhYnjQDFEaAQDhEMAAIhAPhBYKA6KhyMJjNZiMJyEA2EAxAUIk0HlEHlUsl0wmU0GYgGcig87AE9AE/lsvmMzEAym8' +
'BA==';
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM');
Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
end;
EndUpdate();
end
|
|
7
|
How can I change the visual appearance of the Events (Method 1)
with Schedule1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Calendar.Selection := '5/24/2012';
BodyEventBackColor := $1000000;
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM');
Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
end;
EndUpdate();
end
|
|
6
|
How can I show the scheduler panel only, so no Calendar panel is shown
with Schedule1 do
begin
OnResizeControl := Integer(EXSCHEDULELib_TLB.exChangePanels) Or Integer(EXSCHEDULELib_TLB.exHideSplitter);
end
|
|
5
|
May I display the calendar in the right side of the control
with Schedule1 do
begin
OnResizeControl := Integer(EXSCHEDULELib_TLB.exCalendarFit) Or Integer(EXSCHEDULELib_TLB.exChangePanels);
end
|
|
4
|
Is it possible to disable resizing the vertical splitter
with Schedule1 do
begin
OnResizeControl := Integer(EXSCHEDULELib_TLB.exDisableSplitter) Or Integer(EXSCHEDULELib_TLB.exResizePanelRight);
end
|
|
3
|
How can I show the Calendar panel only
with Schedule1 do
begin
OnResizeControl := Integer(EXSCHEDULELib_TLB.exHideSplitter) Or Integer(EXSCHEDULELib_TLB.exResizePanelRight);
end
|
|
2
|
Is there an AutoHide option for the Calendar panel
with Schedule1 do
begin
OnResizeControl := EXSCHEDULELib_TLB.exCalendarAutoHide;
end
|
|
1
|
How can I hide the Calendar panel
with Schedule1 do
begin
OnResizeControl := Integer(EXSCHEDULELib_TLB.exChangePanels) Or Integer(EXSCHEDULELib_TLB.exHideSplitter);
end
|